home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_B.d64 / timetable .ta (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  5KB  |  144 lines
  1. 5 dims(5,62),c$(69),c(69),na(69),x(69),y(69),d(69,4),ri(69),h(69)
  2. 120 c$(1)="[194]oston      ":c(1)=2:x(1)=251:y(1)=171
  3. 122 c$(2)="[200]artford    ":c(2)=1:x(2)=245:y(2)=178
  4. 123 c$(3)="[206][197][215] [217][207][210][203]    ":c(3)=2:x(3)=238:y(3)=184
  5. 124 c$(4)="[206]ewark      ":c(4)=1:x(4)=237:y(4)=181
  6. 125 c$(5)="[193]lbany      ":c(5)=1:x(5)=238:y(5)=170
  7. 126 c$(6)="[205]ontreal    ":c(6)=1:x(6)=233:y(6)=152
  8. 127 c$(7)="[208]hiladelphia":c(7)=1:x(7)=234:y(7)=189
  9. 128 c$(8)="[208]ortsmouth  ":c(8)=1:x(8)=234:y(8)=209
  10. 129 c$(9)="[194]altimore   ":c(9)=2:x(9)=229:y(9)=194
  11. 130 c$(10)="[210]ichmond    ":c(10)=1:x(10)=228:y(10)=204
  12. 131 c$(11)="[215]ashington  ":c(11)=1:x(11)=228:y(11)=197
  13. 132 c$(12)="[207]ttawa      ":c(12)=1:x(12)=225:y(12)=159
  14. 133 c$(13)="[210]aleigh     ":c(13)=1:x(13)=225:y(13)=216
  15. 134 c$(14)="[210]ochester   ":c(14)=2:x(14)=221:y(14)=172
  16. 135 c$(15)="[199]reensboro  ":c(15)=1:x(15)=220:y(15)=215
  17. 136 c$(16)="[210]oanoke     ":c(16)=3:x(16)=217:y(16)=209
  18. 137 c$(17)="[194]uffalo     ":c(17)=2:x(17)=216:y(17)=173
  19. 138 c$(18)="[195]harlotte   ":c(18)=1:x(18)=214:y(18)=222
  20. 139 c$(19)="[212]oronto     ":c(19)=2:x(19)=211:y(19)=168
  21. 140 c$(20)="[200]amilton    ":c(20)=1:x(20)=211:y(20)=172
  22. 141 c$(21)="[208]ittsburgh  ":c(21)=1:x(21)=212:y(21)=189
  23. 142 c$(22)="[197]rie        ":c(22)=2:x(22)=210:y(22)=181
  24. 143 c$(23)="[195]harleston  ":c(23)=1:x(23)=206:y(23)=204
  25. 144 c$(24)="[195]leveland   ":c(24)=2:x(24)=203:y(24)=185
  26. 145 c$(25)="[204]ondon      ":c(25)=1:x(25)=203:y(25)=175
  27. 146 c$(26)="[203]noxville   ":c(26)=3:x(26)=195:y(26)=218
  28. 147 c$(27)="[212]oledo      ":c(27)=1:x(27)=193:y(27)=184
  29. 148 c$(28)="[196]etroid     ":c(28)=2:x(28)=198:y(28)=183
  30. 149 c$(29)="[198]lint       ":c(29)=1:x(29)=193:y(29)=179
  31. 150 c$(30)="[195]incinatti  ":c(30)=1:x(30)=192:y(30)=200
  32. 151 c$(31)="[196]ayton      ":c(31)=1:x(31)=192:y(31)=197
  33. 152 c$(32)="[204]ouisville  ":c(32)=1:x(32)=186:y(32)=208
  34. 153 c$(33)="[198]ort [215]ayne  ":c(33)=1:x(33)=185:y(33)=190
  35. 154 c$(34)="[201]ndianapolis":c(34)=1:x(34)=185:y(34)=199
  36. 155 c$(35)="[199]rand [210]apids":c(35)=1:x(35)=184:y(35)=179
  37. 156 c$(36)="[206]ashville   ":c(36)=3:x(36)=181:y(36)=219
  38. 157 c$(37)="[197]vansville  ":c(37)=1:x(37)=179:y(37)=208
  39. 158 c$(38)="[195]hicago     ":c(38)=2:x(38)=175:y(38)=183
  40. 159 c$(39)="[205]ilwaukee   ":c(39)=2:x(39)=174:y(39)=178
  41. 160 c$(40)="[210]ockford    ":c(40)=1:x(40)=169:y(40)=182
  42. 161 c$(41)="[205]emphis     ":c(41)=1:x(41)=166:y(41)=225
  43. 162 c$(42)="[208]eoria      ":c(42)=1:x(42)=166:y(42)=192
  44. 163 c$(43)="[211]t.[204]ouis    ":c(43)=1:x(43)=162:y(43)=206
  45. 164 c$(44)="[212]hunder [194]ay ":c(44)=2:x(44)=165:y(44)=145
  46. 165 c$(45)="[211]t.[208]aul     ":c(45)=1:x(45)=151:y(45)=164
  47. 166 c$(46)="[205]inneapolis ":c(46)=1:x(46)=148:y(46)=165
  48. 167 c$(47)="[196]es [205]oines  ":c(47)=1:x(47)=147:y(47)=185
  49. 168 c$(48)="[203]ansas [195]ity ":c(48)=1:x(48)=140:y(48)=202
  50. 169 c$(49)="[212]opeka      ":c(49)=1:x(49)=136:y(49)=203
  51. 170 c$(50)="[207]maha       ":c(50)=1:x(50)=135:y(50)=188
  52. 171 c$(51)="[212]ulsa       ":c(51)=1:x(51)=134:y(51)=218
  53. 172 c$(52)="[215]innipeg    ":c(52)=1:x(52)=133:y(52)=134
  54. 173 c$(53)="[204]incoln     ":c(53)=1:x(53)=132:y(53)=191
  55. 174 c$(54)="[215]ichita     ":c(54)=1:x(54)=128:y(54)=210
  56. 175 c$(55)="[207]klahoma [195]. ":c(55)=1:x(55)=127:y(55)=223
  57. 176 c$(56)="[210]egina      ":c(56)=1:x(56)=106:y(56)=125
  58. 177 c$(57)="[193]marillo    ":c(57)=3:x(57)=105:y(57)=221
  59. 178 c$(58)="[211]askatoon   ":c(58)=1:x(58)=100:y(58)=116
  60. 179 c$(59)="[196]enver      ":c(59)=3:x(59)=093:y(59)=192
  61. 180 c$(60)="[208]ueblo      ":c(60)=3:x(60)=093:y(60)=200
  62. 181 c$(61)="[195]olorado    ":c(61)=3:x(61)=092:y(61)=196
  63. 182 c$(62)="[197]dmonton    ":c(62)=1:x(62)=077:y(62)=104
  64. 183 c$(63)="[195]algary     ":c(63)=3:x(63)=070:y(63)=118
  65. 184 c$(64)="[211].[204]ake [195]ity ":c(64)=2:x(64)=063:y(64)=182
  66. 185 c$(65)="[211]pokane     ":c(65)=3:x(65)=050:y(65)=135
  67. 186 c$(66)="[194]oise       ":c(66)=3:x(66)=049:y(66)=158
  68. 187 c$(67)="[204]as [214]egas   ":c(67)=3:x(67)=039:y(67)=209
  69. 188 c$(68)="[211]eattle     ":c(68)=2:x(68)=031:y(68)=127
  70. 189 c$(69)="[212]acoma      ":c(69)=2:x(69)=029:y(69)=131
  71. 200 fort=1to69:forn=1to4:readd(t,n):next:next
  72. 201 data2,5,3,6
  73. 202 data1,3,5,4
  74. 203 data1,2,4,7
  75. 204 data2,3,5,7
  76. 205 data1,2,4,6
  77. 206 data1,5,12,14
  78. 207 data4,3,9,21
  79. 208 data10,11,13,16
  80. 209 data7,21,11,14
  81. 210 data8,11,16,23
  82. 211 data9,10,8,21
  83. 212 data6,14,19,17
  84. 213 data8,18,15,16
  85. 214 data12,6,9,17
  86. 215 data13,16,23,18
  87. 216 data10,8,13,15
  88. 217 data14,12,22,20
  89. 218 data15,13,23,26
  90. 219 data12,20,25,22
  91. 220 data19,17,25,22
  92. 221 data7,9,11,24
  93. 222 data20,19,17,24
  94. 223 data10,15,18,30
  95. 224 data22,21,28,27
  96. 225 data19,20,28,29
  97. 226 data18,36,30,32
  98. 227 data24,28,29,31
  99. 228 data25,24,27,29
  100. 229 data25,28,27,35
  101. 230 data26,23,31,32
  102. 231 data27,33,34,30
  103. 232 data30,37,36,26
  104. 233 data35,31,34,38
  105. 234 data33,31,37,42
  106. 235 data29,33,38,39
  107. 236 data26,32,37,41
  108. 237 data36,32,34,43
  109. 238 data35,40,42,33
  110. 239 data35,45,40,42
  111. 240 data39,45,47,33
  112. 241 data36,43,48,51
  113. 242 data43,34,38,39
  114. 243 data42,37,41,48
  115. 244 data47,45,46,52
  116. 245 data39,40,46,44
  117. 246 data45,44,47,50
  118. 247 data44,40,50,46
  119. 248 data41,43,49,53
  120. 249 data53,48,51,54
  121. 250 data46,47,53,59
  122. 251 data41,49,54,55
  123. 252 data44,58,56,66
  124. 253 data50,48,49,54
  125. 254 data49,51,53,59
  126. 255 data51,61,60,57
  127. 256 data52,58,62,63
  128. 257 data55,59,60,67
  129. 258 data52,56,63,62
  130. 259 data50,54,57,61
  131. 260 data55,57,67,61
  132. 261 data60,64,59,55
  133. 262 data58,56,63,68
  134. 263 data62,58,56,65
  135. 264 data61,67,66,65
  136. 265 data63,64,66,68
  137. 266 data52,64,68,65
  138. 267 data57,60,64,69
  139. 268 data65,66,69,62
  140. 269 data68,67,66,65
  141. 1000 open1,4,7:print#1,chr$(14);"                [198]ahrplan":print#1,""chr$(15)
  142. 1010 fort=1to69:forn=1to4:c2$=c2$+c$(d(t,n))+" ":next:
  143. 1020 print#1," "c$(t)"              "c2$:c2$="":next
  144.